Top 10k strings from Font Editor & Script Designer (1985)(R.D. Foord Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   7 ***********************
   4 **********************
   4 *********************
   2 loc=(loc-1
   2 count=count+1
   2 b(l)=b(l)+d:
   2 000000000007
   2 "enter colour :-";b
   1 ststststststst
   1 screen des^
   1 rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrVVVVVVVVVVVVWWWWWWWWWWWWWWWWWWrrVNNNNNNNNNNVWxxxxxxxxxxxxxxxxWrrVNMMMMMMKNNVWxxxxxxxxxxxxxxxxWrrVNMMMMMMMMNVWxxxxxxxxxxxxxxxxWrrVNNNNNNNNNNVWxxxxxxxxxxxxxxxxWrrVVVVVVVVVVVVWWWWWWWWWWWWWWWWWWrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
   1 print=ram+877
   1 poke=poke+3
   1 poke=poke+2
   1 poke=23311
   1 poke=23302
   1 p2        
   1 p$="WELCOME":
   1 p$="USER KEYS":
   1 loclow=loc-lochigh*256
   1 j,x(j-23295
   1 fonts     
   1 f1,f2,f3,f4,f5,f6
   1 ds1=data-ds2*256
   1 dis=d1*256
   1 designer2 P"n
   1 data=data+7
   1 code      
   1 cccccccccccccc
   1 b(l)=b(l)-d:
   1 aaaaaaccaaaaaa
   1 a,x(a-23295
   1 VVVVVVVVVVVVVVVVVVV
   1 Store symbol.
   1 Set pixel to paper.
   1 Set pixel to ink.
   1 SELECT SET LETTER":
   1 SCRIPT DESIGNER
   1 PRESS KEY 
   1 PLEASE WAIT
   1 FONT SET'S 
   1 Created with Ramsoft MakeTZX
   1 B<<dDd$fB~<B
   1 B< P\B]]B<
   1 A$="2")+(252
   1 A$="1")+(251
   1 ;n;". EXAMPLE of FONT: abc 123 XYZ ";
   1 ;n;". ";m$:
   1 ;"nopqrstuvwxyz"
   1 ;"designer2":
   1 ;"designer2"
   1 ;"abcdefghijklm"
   1 ;"a=another symbol.               m=MENU                          "
   1 ;"SELECTED FONT   "
   1 ;"SAVING - PLEASE WAIT"
   1 ;"RUN TAPE":
   1 ;"Program will now SAVE ";f$," 
   1 ;"NOPQRSTUVWXYZ"
   1 ;"NEW FONT",:
   1 ;"Flip tape over and"'';
   1 ;"DO YOU WISH TO CHANGE ANOTHER":
   1 ;"DISPLAY TABLE"
   1 ;"ABCDEFGHIJKLM"
   1 ;"1234567890"
   1 ;".,-+*/=:`^\
   1 ;"!@#$%&'()[]{}"
   1 ;" and then LOAD ";f$," CODE ";ram;",768 ."
   1 ;" DO YOU WISH TO OVERWRITE y/n ? ":
   1 ;"   DO YOU WISH TO SAVE y/n ?":
   1 ;"    Verify O.K. Press any key.  ":
   1 ;"    VERIFICATION-PLEASE WAIT    "
   1 ;"         PRESS NUMBER "
   1 ;"          PRESS NUMBER."
   1 88888888888888 88888888888888888888888888888888888888888888888883
   1 8(88(88(hXp
   1 777777777777
   1 ,line,col,16
   1 +dis,b(l):
   1 ****SAVING ROUTINE****
   1 ******LOAD ROUTINE****
   1 ***********************                                     
   1 ****** MENU PAGE ******  
   1 ***** POKE CHAR *******
   1 ***** END of PROG *****
   1 ***** CLS ROUTINE *****
   1 ***** ALTER CHAR ******
   1 **** display table.****
   1 **** POKE ATTR *******
   1 **** INSTRUCTIONS *****
   1 *** SCREEN ROUTINE ****
   1 *** POKE OLD CHAR ***
   1 *** POKE NEW CHAR ***
   1 );" and then POKE 23607,";
   1 (A+C);" ";:
   1 (A+B);" ";:
   1 ((((((((((((((((((((((((((((
   1 "screen des"
   1 "paper ";paper
   1 "low=";loclow'"high=";lochigh'"location=";loclow+lochigh*256
   1 "ink ";ink
   1 "enter string ";a$
   1 "enter more print y/n ";b$
   1 "enter location no. ";loc
   1 "enter line position -";line
   1 "enter lenght ";(count);":-";l
   1 "enter data start location ";data
   1 "designer2"
   1 "coloum position ";col
   1 "attribute screen                please enter lenght of first    attribute:-";l
   1 "any more attributes:-";y$
   1 "abcdef ABCDEF 123456 !@#$%&`?
   1 "Use Cursor Keys to move Cursor","","p - PLOTS","0 - UNPLOTS","s - STORES CHARACTER","a - ALTERS (LIFT Char.to grid)","m - MENU"
   1 "To reload you should CLEAR ";ram-1
   1 "This Designer has six Fonts","already for you to use. ","You can Save any one of them","or modify them and Save later.","It is possible for you to","change/modify up to six Fonts","simply returning to the menu","and selecting a New Font.By","doing this you can flip from","Font to Font altering each","one at leasure."
   1 "Then POKE 23606,";ram-256
   1 "TAPE OR MC/DRIVE ? 't' or 'm'   ";
   1 "SELECT THE CHARACTER YOU WISH   TO CHANGE :- ";Z$
   1 "SAVE to TAPE/MCDRIVE ? 't' or'm'";
   1 "NAME FONT FOR SAVING max 10 lets";
   1 "LOAD NAME OF FONT (MAX 10 lets) ";
   1 "LOAD FONT","SAVE FONT","CHOOSE FONT","DESIGN","INSTRUCTIONS","QUIT"
   1 "ENTER key to be defined.  ";
   1 "ENTER CHARACTER ";
   1 ";ram;",768"
   1 "","WARNING:IF ON BREAK- GOTO 1","HAPPY DESIGNING !","","       PRESS ANY KEY"
   1 "   (Normal Chars.)"
   1 "       PRESS ANY KEY"
   1 "           
   1  R.D.Foord Software
   1  DESIGNER by S.F & J.W
   1  = QUIT     "
   1  = NUNBER'S    
   1  = LOWER CASE  
   1  = CHARACTER
   1  = CAPITAL'S
   1   PRESS ~Z~ TO QUIT & SAVE FONT